


OUTPUT TO c:\1.txt.



FOR EACH pod_ NO-LOCK WHERE pod_nbr = "PA590070" OR pod_nbr = "PA590071" WITH FRAME a STREAM-IO :

    DISP pod_nbr pod_line pod_part pod_qty_ord.

    FIND FIRST IN_ NO-LOCK WHERE IN_part = pod_part AND IN_site = pod_site NO-ERROR.
    IF AVAILABLE in_ THEN
        DISPLAY IN_qty_ord.

    FIND FIRST mrp_ NO-LOCK WHERE mrp_dataset = "pod_det" AND mrp_nbr = pod_nbr AND mrp_line = STRING(pod_line) AND mrp_part = pod_part NO-ERROR.
    IF AVAILABLE mrp_ THEN
        DISPLAY mrp_qty.


END.
